home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / awk210.arc / ENARC.AWK < prev    next >
Encoding:
AWK Script  |  1988-12-30  |  167 b   |  8 lines
  1. BEGIN { arcfile = ARGV[1]; delete ARGV[1] }
  2. FILENAME != filename {
  3.     print ("-ARCHIVE-", FILENAME) >arcfile
  4.     print filename = FILENAME
  5. }
  6. {print >arcfile}
  7.  
  8.